home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 12 / CU Amiga Magazine's Super CD-ROM 12 (1997)(EMAP Images)(GB)[!][issue 1997-07].iso / CUCD / Online / Aminet / Search < prev    next >
Text File  |  1997-01-13  |  909b  |  35 lines
  1. ; Searches the Aminet Online or CD Index for a specified string
  2.  
  3. Version >NIL: version 37
  4. if WARN
  5.     echo ""
  6.     echo "You need at least version 2.04 of the operating system to run Index"
  7.     quit
  8. endif
  9.  
  10. set choice `RequestChoice "AminetSearch" "Do you want to search the index all files on Aminet*Nor the index of the Aminet CDs? (up to CD 16)" " All | CD |Cancel"`
  11.  
  12. if $choice EQ 0
  13.     quit
  14.     endif
  15.  
  16. if $choice EQ 1
  17.     :C/Head -7 INDEX >RAM:Aminet
  18.     :C/FlashFind INDEX `:C/RequestString TITLE "Search Aminet Index" BODY "Please enter the string to search for"` >>RAM:Aminet
  19.     endif
  20.  
  21. if $choice EQ 2
  22.     :C/Head -14 AminetCDs >RAM:Aminet
  23.     :C/FlashFind AminetCDs `:C/RequestString TITLE "Search Aminet CDs" BODY "Please enter the string to search for"` >>RAM:Aminet
  24.     endif
  25.  
  26. Version >NIL: version 39
  27. if WARN
  28.     AmigaGuide RAM:Aminet
  29. else
  30.     MultiView RAM:Aminet
  31. endif
  32.  
  33. delete >NIL: RAM:Aminet
  34.  
  35.